home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / UTILITY TO WRITE BLANK PFILE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  167b  |  8 lines
  1. 900 N = 1500
  2. 902 Z$ = "<CTRL-D>"
  3. 903  PRINT Z$;"OPEN PFILE"
  4. 904  PRINT Z$;"WRITE PFILE"
  5. 905  FOR E = 0 TO N
  6. 906 P$(E) = ""
  7. 907  PRINT P$(E)
  8. 908  PRINT Z$;"CLOSE PFILE"